home *** CD-ROM | disk | FTP | other *** search
/ CompuServe - Multimedia W…shop 1995 February/March / CompuServe Multimedia Workshop February-March 1995 (Metatec Corporation)(1994).iso / setup / ccd / mpt.sbk (.txt) < prev    next >
Asymetrix ToolBook File  |  1995-03-07  |  56KB  |  1,080 lines
  1. MPT System Book v. 3.3
  2. Contents Copyright(c) 1994,1995 Metatec Corp.
  3. All Rights Reserved
  4. compactBook
  5. buttonClick
  6. onClick
  7. compactBook
  8. &Compact Book
  9. buttonClick
  10. onClick
  11. Script Size
  12. DriveListViewer
  13. Page id 2
  14. tools
  15. Page id 4
  16. Tools
  17. Reader
  18. Open &Tools Window
  19. closeWindow
  20. Window
  21. ~= Reader
  22. "Open &Tools 
  23.      %"?
  24. System
  25. HxuJlxA
  26. Arial
  27. ncdVGA
  28. playBitmap szMediaSource,stSize
  29. {objTarget
  30. szFileName,szViewer,szExec
  31. 8bkMediaViewer
  32. statusMsg "Opening Picture..." 
  33. g = romDrive() & 
  34. xisFile(
  35. o= default
  36. strFileNotFound(
  37.  = iniString(configFile(),"MEDIA VIEWERS","
  38. \",256)
  39.  <> "
  40. " && 
  41.  = mediaViewer()
  42. 5 (file 
  43. .VWR) 
  44. xpresent 
  45. xproperly initialized."
  46. playCDAudio wTrackNum,arg2
  47.     -- *** wStyle 
  48. cstyle bits: *** --
  49.     -- *** 
  50. !bitAND 0x0001 = 0
  51. means embedded *** --
  52. ..." 
  53. isType(logical,
  54. bitOR 0
  55. e(),"
  56. ",256)
  57.  <> "
  58. " && 
  59. playMovie 
  60. ,dwLength
  61.     -- *** 
  62.     -- *** 
  63.     -- *** 
  64. 2 = 0x0002 
  65. controls *** --
  66.     -- *** 
  67. 4 = 0x0004 
  68. border
  69. *** --
  70.  bPageMedia
  71. ..." 
  72. <> 1    -- *** Not 
  73. e(),"
  74. ",256)
  75.  <> "
  76. " && 
  77. (EnterPageMedia 
  78. (LeavePageMedia 
  79. playMCI 
  80. playSequencer 
  81. ,arg3
  82.     -- *** 
  83.     -- *** 
  84. MIDI..." 
  85. P    -- *** <= 3.2 *** --
  86.  < 2        -- *** >= 3.3 *** --
  87.     -- *** <= 3.2, bEmbedded param missing (
  88. popup) *** --
  89.     e(),"
  90. ",256)
  91.  <> "
  92. " && 
  93. playText 
  94. bFullScreen
  95. 5..." 
  96. e(),"
  97. ",256)
  98.  <> "
  99. " && 
  100. playWaveAudio 
  101.     -- *** 
  102.     -- *** 
  103. ..." 
  104. P    -- *** <= 3.2 *** --
  105.  < 2        -- *** >= 3.3 *** --
  106.     -- *** <= 3.2, 
  107. e(),"
  108. ",256)
  109.  <> "
  110. " && 
  111. -- *** Handler 
  112. }prior 
  113. v3.2/v3.3 *** --
  114. -- *** The 
  115. call '
  116.     ' instead 
  117. <MediaType>' 
  118. now *** --
  119. -- *** contained 
  120. .VWR. '
  121. \    ' may still, however, be called directly *** --
  122. playMedia 
  123. ,dwMediaLength,stMediaSize,bIsControls
  124.     -- *** 
  125.     -- *** 
  126.     -- *** 
  127. (movies only) *** --
  128.     -- *** 
  129. TypeOfMedia
  130.  bSysSuspend
  131.     szTypeOfMedia = szMediaType 
  132. " && 
  133. ,& "..." 
  134. ?<> "
  135. i    <> 
  136. e(),"
  137. ",256)
  138.  <> "
  139. " && 
  140. " && 
  141. = 1    -- *** Defaults 
  142. zero *** --
  143.             -- *** Note: 
  144. fborders 
  145. x*** --
  146.             -- *** supported 
  147. versions 
  148. 3.2 *** --
  149. continueMsg
  150. "Click 
  151. d..."
  152. fPlacement
  153. ..." 
  154. )    -- *** 
  155. *** --
  156.         -- *** 
  157. a handler 
  158. .VWR which returns a ref 
  159. itself *** --
  160. gwEnterPageTimer
  161. 4stack stPageMedia
  162.  bSuspendPageMedia
  163. '         -- *** 
  164.  *** --
  165. / <> 
  166. f = timerStart("single",500,54,
  167. (BeforeImages 
  168. ) > 0
  169. (AfterImages 
  170. ) > 0
  171. timerNotify wTimer
  172.  = enterPageMedia 
  173. ) > 0
  174. sysSuspendMessages = 
  175. buttonClick 
  176.  = leavePageMedia 
  177. ) > 0
  178. MCINotify szStatus,szOperation,szDevice
  179. szIdleCmds[]
  180. szTemp
  181. = = "aborted" 
  182. E = "
  183. dimensions(
  184. D) > 0
  185. goToPage"
  186.         reset 
  187. } <> 
  188. mediaType 
  189. fileExtension(
  190. = "WAV"
  191. = "MID"
  192. "BMP,DIB,GIF,PCX,TIF,WMF"
  193. "AVI,MOV,FLI,FLC,MMM"
  194. "TXT,DOC"
  195. = "RTF"
  196. "Rich 
  197. Format"
  198. "Unsupported 
  199. openIndex szDir,
  200. szSysInfo[]
  201. gwAppName,wIndexApp,wIndexCaption
  202. ghwnd
  203.  bFirst
  204. szDDEName
  205. FindWindowByCaption(0,
  206. startupDir() & 
  207. Yield()
  208. _n(0,
  209. strBadSetup("Cannot 
  210. " && 
  211. ] && "
  212.  = "\"
  213. discIssueID(),
  214.  = baseName(
  215. r<> "OK"
  216. DDE Link 
  217. " && 
  218. ] && "
  219. keepRemote 
  220. ShowWindow(
  221. BringWindowToTop(
  222. openForm szBookRef
  223. gwRomDrive
  224.     defaultPage 
  225. "FormViewer" 
  226. <] & 
  227. j] & 
  228. %modal
  229. WM_SYSCOMMAND 
  230. ,wMsg,wParam
  231.  = 0xF060
  232. shutDown 
  233. szRetVal
  234.      = preference("quitPrompt","
  235. 0 = "
  236. "Do you really want 
  237. f"Yes" 
  238. cleanUp 
  239.     -- simple trap 
  240. , mag 
  241. app-specific sysBook didn't 
  242. isStartup
  243. c(startupBookName()))
  244. openStartup
  245. ) + 1] = "
  246.  find 
  247. logError szError,bRequest
  248. szLogFile,szSysError,szLogString
  249. nErrorNumber
  250.  = sysErrorNumber
  251. fileOnly(
  252. ".err" 
  253. ~(".",
  254.         seekFile 
  255. logged on" && 
  256. p&& "
  257. )" && 
  258. " && \
  259. :" && 
  260.  =" && 
  261. r=" && 
  262. sysInfo() & 
  263. k& "(
  264. l%" && 
  265.  && "
  266. openMagazine
  267. gwShortName,wVersionID,
  268. ,wExtension
  269. gwStartupDir,wFullScreen
  270. # DEVELOP
  271. ,szFilters,szPath
  272. ] && \
  273. "(*." & 
  274. ] & "),*." & 
  275. ] & \
  276. ",ToolBook Books (*.?bk),*.?bk,All Files (*.*),*.*"
  277. ] && \
  278. "(*." & 
  279. ] & "),*." & 
  280. ] & \
  281. ) > 3 
  282.  = "\"
  283.  = openFileDlg("
  284. ","",
  285. versionID 
  286. xisAppBook(
  287. strDiscError()
  288. " && 
  289.  & ". It 
  290. incompatible 
  291. corrupted 
  292. strWrongVersion(
  293.  = (bookInfoByBookID(
  294. state 
  295. <> maximized
  296. = screenResolution()
  297.     -- *** May be opening magazine 
  298. tools 
  299. e*** --
  300.             centerClient 
  301. myPath
  302.  <> "\"
  303. W) szFileSpec
  304. nFoundIt
  305. gwMode
  306. * = "\"
  307. G = SetErrorMode(0x8000 bitOr 0
  308. = SEM_NOOPENFILEERRORBOX; 0
  309. *(SEM_NOCRITICALERRORBOX
  310.     -- *** fileExists() appears 
  311. error mode *** --
  312. -) 0x4000 = OF_EXIST
  313.  = 1)
  314. appName
  315. discName
  316. discIniString("DISC INFO","DiscName","",128)
  317. shortName
  318.  wBookIndex,wInfoItem
  319. szBookInfo[][]
  320.  szBookName,
  321. gwBookID
  322. runtimePath
  323. RuntimePath","",256)
  324. discVersionID
  325. ","",16)
  326. gwConfigFile
  327. discConfigFile
  328. gwDiscConfigFile
  329. indexApp
  330. indexCaption
  331. setRomDrive
  332. szRomDrive
  333. ) > 3 
  334. = "\"
  335. ? = chooseDirectoryDlg("Select ROM 
  336. n <> 
  337.  <> "\"
  338. writeIniItem(
  339. -STARTUP","
  340. setStartupDirectory
  341. ",".")
  342. <> "\"
  343.     ] = 
  344. , success
  345. setCurrentDrive(
  346. setCurrentDirectory(
  347. <> -3
  348.  = TRUE        
  349. extension
  350.  section, entry, 
  351. /0, bufSize
  352. szDiscIni
  353. gwBufSize
  354. T = 256
  355. discIssueName
  356. issueName","",64)
  357. issueID","",16)
  358.  szPref,szDefault
  359. ],"Prefs",
  360. 9,256)
  361. szApp
  362. / bOnRomDrive
  363. % = (
  364. ","",256)
  365. (szAppName 
  366.             ((
  367. ! Please replace 
  368. 3" && 
  369. 3 && "
  370. xfound. 
  371. acertain the 
  372. " && \
  373. () && "
  374. drive."
  375.  szVersion
  376. szInstalled,
  377. %"0.0"
  378. %"0.0"
  379. " && 
  380. ] && "
  381. !" & 
  382. " && 
  383. v && "
  384. installed 
  385. are attempting 
  386. a" && \
  387. " && 
  388.  && "
  389. k& "You 
  390. #wish 
  391. upgrade" && \
  392. latest 
  393. " && 
  394. ] & "."
  395. wrongDiscVersion 
  396. szDialog
  397. %"0.0"
  398. %"0.0"
  399. f" && 
  400.  && "
  401. a" && \
  402. " && 
  403.  && "
  404.             "Do 
  405. perform 
  406.  now?" 
  407. ] & "setup.exe")
  408. 6 = "
  409. " && 
  410. ] & "
  411. ( && \
  412. "-F" & 
  413. ] & "
  414. .ins" & 
  415. "Upgrade program 
  416. asure 
  417. " && \
  418. ] && "
  419. your CD-
  420. correct 
  421. problem."
  422. -- *** For NautilusCD, NCD.SBK 
  423. ca helpAbout 
  424.  shows *** --
  425. -- *** a 
  426. that 
  427. B bitmap 
  428.     *** --
  429. OszCompany
  430. szHelpAbout,szYear
  431. %"y" 
  432. ] && "
  433. " && 
  434.             "Copyright(c)" && 
  435. f & ","
  436. "Portions 
  437.  & ", Metatec Corp."
  438.  && "
  439. rights reserved." & 
  440. selectDir
  441. ",".")
  442. -- *** 
  443. 3.2+ Stuff *** --
  444. szDLL,
  445. ftsIndexName 
  446. 2 = "fts30mtb.dll"
  447.     wTries = 1
  448.         linkDLL 
  449. ftsSearch(
  450.  = sysToolBookDirectory & 
  451. () & 
  452. fullTextSearch 
  453. szIndexName
  454. a userProperty placed 
  455. Tools 
  456. builds 
  457. must 
  458.  <> NULL 
  459.  <> "\"
  460.         pgRef = 
  461. ,windowHandle 
  462.             -- 
  463. '+have had its path removed
  464. -- insert current 
  465. isObject(
  466. a valid 
  467. -- otherwise...
  468. navigate 
  469. " && 
  470. $E<b$U
  471. B[V!C
  472. O=PuP
  473. SW7\V
  474. .&+    +E
  475. MEDIA VIEWERS
  476. Bitmap
  477. qtromDrive
  478. statusMsg
  479. mediaViewer
  480. isFile
  481. Opening Picture...
  482. Media Viewer (file MEDIA.VWR) not present or not properly initialized.
  483. playBitmap
  484. iniString
  485. objTarget
  486. bkMediaViewer
  487. szViewer
  488. szFileName
  489. stSize
  490. szExec
  491. szMediaSource
  492. strFileNotFound
  493. objTarget
  494. configFile
  495. default
  496. playBitmap
  497. configFile
  498. MEDIA VIEWERS
  499. mediaViewer
  500. statusMsg
  501. objTarget
  502. bkMediaViewer
  503. szViewer
  504. wTrackNum
  505. wStyle
  506. szExec
  507. Opening CD Audio...
  508. playCDAudio
  509. Media Viewer (file MEDIA.VWR) not present or not properly initialized.
  510. iniString
  511. objTarget
  512. CDAudio
  513. default
  514. playCDAudio
  515. w,    "V
  516. w,    "V
  517. LLeavePageMedia
  518. Movie
  519. MEDIA VIEWERS
  520. zZEnterPageMedia
  521. qtromDrive
  522. statusMsg
  523. mediaViewer
  524. isFile
  525. Media Viewer (file MEDIA.VWR) not present or not properly initialized.
  526. objTarget
  527. bkMediaViewer
  528. szViewer
  529. szFileName
  530. wStyle
  531. stSize
  532. dwLength
  533. szExec
  534. szMediaSource
  535. bPageMedia
  536. iniString
  537. Opening Movie...
  538. strFileNotFound
  539. playMovie
  540. objTarget
  541. E<playMCI
  542. configFile
  543. default
  544. playMovie
  545. MEDIA VIEWERS
  546. qtromDrive
  547. statusMsg
  548. mediaViewer
  549. objTarget
  550. szViewer
  551. bkMediaViewer
  552. szFileName
  553. wStyle
  554. dwLength
  555. szExec
  556. szMediaSource
  557. isFile
  558. Sequencer
  559. Opening MIDI...
  560. aWplaySequencer
  561. Media Viewer (file MEDIA.VWR) not present or not properly initialized.
  562. iniString
  563. strFileNotFound
  564. objTarget
  565. configFile
  566. default
  567. playSequencer
  568. .&+    +E
  569. MEDIA VIEWERS
  570. bkMediaViewer
  571. szViewer
  572. bFullScreen
  573. szFileName
  574. szExec
  575. szMediaSource
  576. Opening Text...
  577. qtromDrive
  578. statusMsg
  579. mediaViewer
  580. playText
  581. isFile
  582. Media Viewer (file MEDIA.VWR) not present or not properly initialized.
  583. iniString
  584. strFileNotFound
  585. configFile
  586. default
  587. playText
  588. WaveAudio
  589. MEDIA VIEWERS
  590. szViewer
  591. objTarget
  592. szViewer
  593. bkMediaViewer
  594. szFileName
  595. wStyle
  596. dwLength
  597. szExec
  598. szMediaSource
  599. qtromDrive
  600. statusMsg
  601. mediaViewer
  602. isFile
  603. Opening Wave File...
  604. Media Viewer (file MEDIA.VWR) not present or not properly initialized.
  605. iniString
  606. strFileNotFound
  607. dwLength
  608. objTarget
  609. szExec
  610. configFile
  611. default
  612. MSplayWaveAudio
  613. playWaveAudio
  614. MEDIA VIEWERS
  615. objTarget
  616. bkMediaViewer
  617. szViewer
  618. dwMediaLength
  619. bSysSuspend
  620. bIsControls
  621. szFileName
  622. szTypeOfMedia
  623. wStyle
  624. szExec
  625. szMediaSource
  626. stMediaSize
  627. bEmbedded
  628. Opening
  629. Movie
  630. configFile
  631. szViewer
  632. Bitmap
  633. qtromDrive
  634. statusMsg
  635. mediaViewer
  636. playText
  637. isFile
  638. playCDAudio
  639. Sequencer
  640. aWplaySequencer
  641. Media Viewer (file MEDIA.VWR) not present or not properly initialized.
  642. playBitmap
  643. szMediaType
  644. WaveAudio
  645. strFileNotFound
  646. playMovie
  647. objTarget
  648. iniString
  649. E<playMCI
  650. CDAudio
  651. default
  652. MSplayWaveAudio